Introducing the New Way to Shop From Home/Introducing the New Way to Shop From Home (Iceland Foods) (2003).iso/pc/help.dxr/UI elements_400.ls

Text File | 2003-01-01 | 423 b | 31 lines

on startMovie
  global MacOn
  if MacOn = 1 then
    nothing()
  else
    set the exitLock to 1
    startQuitMsg()
    set the keyDownScript to "myNoEscape"
  end if
  set the keyDownScript to "myNoEscape"
end

on quitMsg
  go(1, "closing")
end

on myNoEscape
  if the keyCode = 53 then
    go(1, "closing")
  end if
end

on stopMovie
  global MacOn
  if MacOn = 1 then
    nothing()
  else
    closeQuitMsg()
  end if
end